object SuchDlg: TSuchDlg
  Left = 156
  Top = 96
  ActiveControl = Edit1
  BorderStyle = bsDialog
  Caption = 'Suchen'
  ClientHeight = 255
  ClientWidth = 317
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 13
  object Bevel1: TBevel
    Left = 12
    Top = 8
    Width = 300
    Height = 193
    Shape = bsFrame
    IsControl = True
  end
  object Label1: TLabel
    Left = 28
    Top = 52
    Width = 66
    Height = 13
    Caption = 'Suchbegriff'
  end
  object Label2: TLabel
    Left = 28
    Top = 24
    Width = 55
    Height = 13
    Caption = 'Schl�ssel'
  end
  object OKBtn: TBitBtn
    Left = 64
    Top = 212
    Width = 77
    Height = 27
    TabOrder = 0
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 188
    Top = 212
    Width = 77
    Height = 27
    TabOrder = 1
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object Edit1: TEdit
    Left = 108
    Top = 48
    Width = 197
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 2
    OnChange = Edit1Change
  end
  object IsamBrowser1: TIsamBrowser
    Left = 24
    Top = 80
    Width = 281
    Height = 113
    Color = clSilver
    OnBuildRow = IsamBrowser1BuildRow
    OnDblClick = OKBtnClick
    ParentColor = False
    TabOrder = 3
    Table = IsamTable1
    KeySection = 0
    SeparatorChar = '^'
    JustLeftChar = '�'
    JustRightChar = '�'
    JustCenterChar = '�'
    AllowIncSS = False
    IncSSColor = clRed
    IncSSTxtColor = clWhite
  end
  object ComboBox1: TComboBox
    Left = 108
    Top = 20
    Width = 197
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnChange = ComboBox1Change
  end
  object IsamTable1: TIsamTable
    BrowserName = 'IsamBrowser1'
    MyUnitName = 'E:\DELPHI\WNTV\T1.PAS'
    IsamKeyProc.Strings = (
      'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
      'var s : String;'
      'begin'
      '  s:= '#39#39';'
      '  with (Daten) do begin'
      '    case KeyNr of'
      '      1 : S:= '#39#39';'
      '    End;'
      '  end;'
      '  KeyProc:= s;'
      'end;'
      '')
    IsamRecord.Strings = (
      'Type'
      ' = Record'
      '  Dummy : Longint;'
      'end;')
    Left = 20
    Top = 212
  end
end